home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue57 / Construc / Unit3.pas < prev   
Encoding:
Pascal/Delphi Source File  |  2000-04-04  |  1.1 KB  |  55 lines
  1. unit Unit3;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Db, DBClient, MConnect, SConnect;
  8.  
  9. type
  10.   TForm3 = class(TForm)
  11.     SocketConnection1: TSocketConnection;
  12.     ClientDataSet1: TClientDataSet;
  13.     procedure ClientDataSet1AfterGetRecords(Sender: TObject;
  14.       var OwnerData: OleVariant);
  15.     procedure ClientDataSet1BeforeGetRecords(Sender: TObject;
  16.       var OwnerData: OleVariant);
  17.   private
  18.     { Private declarations }
  19.   public
  20.     { Public declarations }
  21.   end;
  22.  
  23. var
  24.   Form3: TForm3;
  25.  
  26. implementation
  27.  
  28. {$R *.DFM}
  29.  
  30. procedure TForm3.ClientDataSet1AfterGetRecords(Sender: TObject;
  31.   var OwnerData: OleVariant);
  32. begin
  33. //  LastKeyValue := OwnerData
  34. end;
  35.  
  36. procedure TForm3.ClientDataSet1BeforeGetRecords(Sender: TObject;
  37.   var OwnerData: OleVariant);
  38. var
  39.   CurRec: TBookmark;
  40. begin
  41.   with Sender AS TClientDataSet do
  42.   begin
  43.     CurRec := GetBookmark;
  44.     try
  45.       Last;
  46.       OwnerData := FieldbyName('Key').Value;
  47.       GotoBookmark(CurRec)
  48.     finally
  49.       FreeBookmark(CurRec)
  50.     end
  51.   end
  52. end;
  53.  
  54. end.
  55.